
  10 :RETURN ;CLEAR 
  20 FOR Z=0TO 399;@(Z)=0;NEXT Z
  30 INPUT "# OF INITIAL CELLS?"L;PRINT "INPUT LOCATIONS:  [CENTER IS 190]
  40 FOR Z=1TO L;PRINT Z,;INPUT "?"K;@(K)=3;NEXT Z
  45 CLEAR ;G=0
  50 A=0;B=19;C=0;D=19;GOTO 85
  60 FOR X=ATO B;FOR Y=CTO D;E=X×20+Y;IF @(E)>9GOSUB 1000
  70 NEXT Y;NEXT X
  80 A=J-1;B=I+1;C=L-1;D=K+1
  85 J=20;I=0;L=20;K=0;T=0;S=0;U=0;BC=RND (256);FC=BC+12
  90 FOR X=ATO B;FOR Y=CTO D;E=X×20+Y;IF @(E)=3@(E)=10;GOTO 2000
 100 IF @(E)=13@(E)=10;T=1;GOTO 130
 110 IF @(E)=14@(E)=10;T=1;GOTO 130
 120 IF @(E)>10GOTO 3000
 125 @(E)=0
 130 NEXT Y;NEXT X;G=G+1;CY=40;PRINT #3,G;IF (U=0)×(T=1)×(S=0)GOTO 160
 140 IF (T=1)+(S=1)GOTO 60
 150 PRINT ;PRINT ;PRINT ;PRINT "LIFE IS TERMINATED!!";STOP
 160 PRINT "LIFE IS STATIC!";STOP
1000 IF X<J J=X
1010 IF X>I I=X
1020 IF Y<L L=Y
1030 IF Y>K K=Y
1040 FOR M=-2TO 2STEP 2;FOR N=-1TO 1;O=M×10+N;@(E+O)=@(E+O)+1;NEXT N;NEXT M;RETURN 
2000 S=1;BOX -40+Y×4,-40+X×4,3,3,1;GOTO 130
3000 U=1;BOX -40+Y×4,-40+X×4,3,3,2;GOTO 125
>RUN 
